home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-2.sda / ╨BBS.NW2 1.26 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  25KB  |  727 lines
  1. 0 DX=0
  2. 1 REMOPEN1,8,15,"I0":PRINT#1,"S0:[186]BBS.NW2*":CLOSE1:SAVE"0:[186]BBS.NW2 1.26",8
  3. 5 ONOVGOTO20,25,30,35,40,50,55,22,27,23,24,37,47,65
  4. 10 REM"[141][145][206][197][212][215][207][210][203] 64  [195][207][208][217][210][201][199][200][212] 1987,'88,'91 [194][217] [211][193][205] [204][197][215][201][212]
  5. 11 [143]"GOSUBON(null)1.26 (null)(null)STR$ATN(null)VAL (null)(null)STR$STR$VALSTR$ PEEK(null) ATNSTR$ATN(null) ASCATN(null)VAL(null)(null)(null)
  6. 20 GOSUB18710:OV=12:GOTO95 APP
  7. 22 GOSUB21120:OV=17:GOTO97 MIDNITE
  8. 23 GOSUB4010:OV=12:GOTO97 REL FR CW
  9. 24 GOSUB4010:GOTO91 REL OL
  10. 25 GOSUB3010:OV=12:GOTO97
  11. 27 I$="":GOSUB6290:GOSUB6600:OV=13:GOTO95
  12. 30 GOSUB3010:GOTO91
  13. 35 GOSUB7010:GOSUB7500:OV=12:GOTO97
  14. 37 GOSUB6300:IFX%>0THENGOSUB6800
  15. 38 OV=18:GOTO97
  16. 40 GOSUB11750:GOSUB18520:IFER=0THENGOSUB6690
  17. 45 CLOSE8:OV=15:GOTO97
  18. 47 GOSUB1110:GOSUB10000:OV=18:GOTO97
  19. 50 GOSUB5001:OV=12:GOTO97
  20. 55 GOSUB6050:FORI=1TONN%:IFN%(I)=>0THEN60
  21. 56 IFASC(A$(I*2)+NU$)<24THENA$(I*2)=MID$(A$(I*2),2)
  22. 57 A$(I*2)=CHR$(ABS(N%(I)))+A$(I*2):N%(I)=0
  23. 60 NEXT:GOSUB6220:A=232:GOSUB1530:OV=16:GOTO97
  24. 65 GOSUB35440:GOSUB8100:TI$="000000":OV=13:GOTO95
  25. 91 OV=3:A$="MSG":GOTO104
  26. 95 A$="INI":GOTO104
  27. 97 A$="NW1"
  28. 104 POKE1017,ASC(A$):POKE1018,ASC(MID$(A$,2)):POKE1019,ASC(RIGHT$(A$,1)):GOSUB489:SYS890
  29. 105 A$="[135].":SYSC(1)
  30. 110 SYSC(4):A$=CHR$(PEEK(C(3))):P=PEEK(C(2)):IFP>1ANDP<5THEN110
  31. 140 RETURN
  32. 155 A$=CR$
  33. 160 SYSC(25):RETURN
  34. 202 GOSUB491
  35. 203 OPEN8,DV,8,DR$+F$:RETURN
  36. 205 GOSUB202:GOSUB220:GOTO270
  37. 210 GOSUB203
  38. 220 GOSUB510:IFERTHENCLOSE8:RETURN
  39. 225 GOSUB155:A=1:GOSUB995
  40. 230 SYSC(5):SR=ST:A$=LEFT$(TX$,PEEK(142)):SYSC(1)
  41. 240 IFA$=""THENA$="[136][135]":SYSC(1)
  42. 245 GOSUB110:IFA$=" "THENP=1:IFC=-1THENC=0
  43. 250 IFPEEK(142)<LEN(TX$)THENA$=CR$:SYSC(1)
  44. 255 IFPORSRTHENGOSUB360:GOSUB505:J=P:GOSUB995:P=J:RETURN
  45. 260 GOTO230
  46. 265 GOSUB220
  47. 270 IF(PEEK(53281)AND15)=0ANDPEEK(53272)=23THENRETURN
  48. 275 IFPTHEN13680
  49. 280 GOSUB155:B$="":II=TI+7200
  50. 285 A$="[145]           "+B$+"[208]RESS [193]NY [203]EY":SYSC(25)
  51. 290 GOSUB110:IFA$<>NU$ORP>0ORII<TITHEN13680
  52. 292 IFB$=""THENB$="":GOTO285
  53. 295 B$="":GOTO285
  54. 300 IFPEEK(C(22))=0THEN310
  55. 301 POKEC(22),2:GOSUB310:POKEC(22),1:RETURN
  56. 302 POKEC(23),1:GOSUB303:POKEC(23),0:RETURN
  57. 303 IFPEEK(C(22))=0THEN305
  58. 304 POKEC(22),2:GOSUB305:POKEC(22),1:RETURN
  59. 305 A$=CR$+">":SYSC(1)
  60. 310 SYSC(8)
  61. 320 P=PEEK(C(2)):I$=LEFT$(TX$,PEEK(142)):IFP=0THENRETURN
  62. 330 IFP=1ORP=255THENA$=DE$:IFI$<>""THENFORI=1TOLEN(I$):SYSC(1):NEXT:I$="
  63. 350 [139]P[178]4[175]I$[179][177]""[167]A$[178]DE$:[129]II[178]1[164][195](I$):[158]C(1):[130]
  64. 355 [139]P[178]4[167]310
  65. 360 [139][194](C(34))[177]0[167]A$[178]"DEF(null)IMEOUT!":[137]160
  66. 365 [139]P[178]255[167]A$[178]"DEFLENARRIER (null)OST!":[137]160
  67. 370 [139]P[178]1[167][151]670,[194](669):[151]670,[194](669):A$[178]"INPUT(null)(null)(null)DIM":[137]160
  68. 380 [142]
  69. 390 [139]I$[179][177]""[167][139][201](I$,1)[178]" "[167]I$[178][200](I$,[195](I$)[171]1):[137]390
  70. 395 [139]I$[179][177]""[167][139][200](I$,1)[178]" "[167]I$[178][202](I$,2):[137]395
  71. 398 [142]
  72. 460 DV[178]D(H)
  73. 461 [139]DV[178]DX[175]H$(H)[178]H$[167]DV[178][182](DV):[142]
  74. 462 DX[178]DV:H$[178]H$(H):[160]15:[139]FL[167][151]148,((DV[179][177]8)[172][171]64)
  75. 465 DR$[178]"0:":[139]DV[179]0[167]DR$[178]"1:":DV[178][182](DV)
  76. 467 [139][200](H$,2)[178]"L8"[167]DR$[178][202](H$,3,1)[170]":
  77. 470 IC=-(LEFT$(H$,3)="HM4"):Z=LEN(H$):FORZZ=1TOZ:IFMID$(H$,ZZ,1)="!"THENZ=ZZ-1
  78. 472 NEXT:OPEN15,DV,15,LEFT$(H$,Z):IFZ<LEN(H$)THENPRINT#15,MID$(H$,Z+2)
  79. 475 GOTO510
  80. 480 H=0:GOTO460
  81. 481 H=1:GOTO460
  82. 484 H=4:GOTO495
  83. 485 H=5:GOTO460
  84. 486 H=6:GOTO460
  85. 489 H=9:GOTO460
  86. 491 H=11:GOTO460
  87. 495 DV=(8+(ABS(DN%(UD))AND7))*SGN(DN%(UD)):IFSD$<>""THENSD$=CHR$(UD+192)
  88. 497 H$(H)=DH$(UD):GOTO461
  89. 499 H=10:GOTO460
  90. 505 GOSUB510:CLOSE8:IFERTHENRETURN
  91. 510 INPUT#15,ER,ER$,ET,ES
  92. 520 IFER<20ORER=50ORER=62ORER=63ORER=64ORER=73THENRETURN
  93. 550 A$="[150][196]ISK #"+DR$+MID$(STR$(DV),2)+" ERROR ="+STR$(ER)+" "+ER$+"[146]
  94. 555 [141]8004:[139][195](E1$)[179]180[167]E1$[178]E1$[170]A$[170]CR$[170]NA$[170]CR$:[151]53280,2
  95. 560 A$[178]C2$[170]A$:[158]C(0):[139]ER[178]70[176]ER[178]71[167][152]15,"UI
  96. 570 IFER<>72THENRETURN
  97. 580 GOSUB13650:PRINT#15,"V"+LEFT$(DR$,1):A$=C2$+"[208]LEASE WAIT...":GOTO160
  98. 610 IFI$=""THENI=0:RETURN
  99. 620 GOSUB390:FORI=1TOLEN(I$):IFMID$(I$,I,1)<"0"ORMID$(I$,I,1)>"9"THENI=0:RETURN
  100. 650 NEXT:I=VAL(LEFT$(I$,38)):RETURN
  101. 710 IFLEFT$(H$,1)="L"THEN790
  102. 715 OPEN8,DV,0,"$"+DR$+F$
  103. 720 POKEC(6),0:GOSUB770:POKEC(6),13:GOSUB780:GOTO505
  104. 770 GET#8,A$,A$,A$,A$,A$,A$:SYSC(5):RETURN
  105. 780 GET#8,A$,A$,A$,B$:A=ASC(A$+NU$)+ASC(B$+NU$)*256:RETURN
  106. 790 PRINT#15,"LG";:INPUT#15,A,A$,A,A,A,A,N:A=INT(A/254*512):RETURN
  107. 905 PRINT#15,"P"CHR$(RN-256*INT(RN/256))CHR$(RN/256)CHR$(II):RETURN
  108. 910 PRINT#15,"P"NU$"":RETURN
  109. 945 GOSUB905:SYSC(5):A$=LEFT$(TX$,PEEK(142)):RETURN
  110. 995 GOSUB110:IFA$<>NU$ORP=1THEN995
  111. 996 RETURN
  112. 1005 A$=C2$+"[193]RE YOU SURE ([217]/[206])? ":SYSC(26)
  113. 1010 GOSUB13640
  114. 1020 GOSUB110:IFA$<>"[217]"ANDA$<>"[206]"ANDP=0THEN1020
  115. 1030 RETURN
  116. 1110 A=PEEK(56331):IFA>32THENA=A-128:GOSUB1190:F$=" PM":PM=1:GOTO1140
  117. 1120 GOSUB1190:F$=" AM":IFPM=1THENND=1
  118. 1140 IFA=0THENA=12
  119. 1150 T$=MID$(STR$(A),2):A=PEEK(56330):GOSUB1190:A$=":":IFA<10THENA$=":0
  120. 1170 T$[178]T$[170]A$[170][202]([196](A),2)[170]F$:A[178][194](56328):[142]
  121. 1190 A[178][181](A[173]16)[172]10[170]A[171][181](A[173]16)[172]16:[142]
  122. 1200 [139]A[179]0[176]A[177]23[167]A[178]1
  123. 1203 [139]A[177][171]1[175]A[179]12[167]F$[178]" AM":[137]1207
  124. 1205 F$[178]" PM":[139]A[177]12[167]A[178]A[171]12
  125. 1207 [139]A[178]0[167]A[178]12
  126. 1210 F$[178][202]([196](A),2)[170]F$:[142]
  127. 1530 [129]I[178]0[164]A:A$(I)[178]"":[130]:[142]
  128. 1630 [141]155:[141]13680:[129]I[178]0[164]A[171]1:A$[178]A$(I)
  129. 1655 [158]C(1):[141]110:[139]A$[178]" "[167]P[178]1
  130. 1657 [139]P[178]1[176]P[178]255[167]360
  131. 1660 [130]:[142]
  132. 3010 A$[178]"LOADREAD(null)ETWORK (null)AINTENANCE"[170]C2$[170]"READ1) PEEKILLING (null)IST/(null)RINT
  133. 3020 A$=A$+CR$+"[135]2) [194]ILLING [197]DIT"+CR$+"[135]3) [194]ILLING [210]EPORT [199]ENERATOR
  134. 3025 [158]C(.):A$[178]"READ4) PEEKILLING (null)OTAL ATNCCOUNTS
  135. 3027 SYSC(.):A$="[135]5) [206]ODE [211]TATUS [210]EPORT"+CR$+"[135]6) [206]ODE [193]CCOUNT [198]ILE [197]DIT
  136. 3028 [158]C(.):A$[178]"READ7) ATNTTACH ASCILE"[170]CR$[170]"READ8) (null)EAD (null)END (null)OG
  137. 3029 A$=A$+CR$+"[135]9) [210]EAD [210]ECEIVE [204]OG":SYSC(.)
  138. 3030 GOSUB13600:A$=CR$+"[135][211]ELECT (1-9) OR [210][197][212][213][210][206]? ":SYSC(1):GOSUB13640
  139. 3040 GOSUB110:IFA$=NU$ANDP=0THEN3040
  140. 3050 IFA$=CR$ORPTHENA$="*":SYSC(0):GOTO12930
  141. 3060 IFVAL(A$)<1ORVAL(A$)>9THEN3040
  142. 3070 SYSC(0):ONVAL(A$)GOSUB3080,3160,3300,3450,6010,7110,7600,3072,3073:GOTO3010
  143. 3072 F$="[186]SLOG":GOSUB205:GOTO3074
  144. 3073 F$="[186]RLOG":GOSUB205
  145. 3074 A$=CR$+"[195]LEAR FILE ([217]/[206])? ":SYSC(1):GOSUB1010:SYSC(.)
  146. 3075 IFA$="[206]"THENRETURN
  147. 3076 PRINT#15,"S"+DR$+F$:OPEN8,DV,8,DR$+F$+",W,S
  148. 3077 [152]8,"LOAD(null)TARTING "DA$CR$:[137]505
  149. 3080 [139][194](C(12))[178]255[167][153]"":[141]12900
  150. 3090 [141]491:[141]18500:[139]ER[167][160]8:[137]12930
  151. 3095 [141]910:[132]8,J
  152. 3100 A$[178]C2$[170]"READ(null)TART AT (2) > ":[158]C(1):[141]310:[141]610:[139]P[167]12930
  153. 3110 [141]155:N[178]I:[139]I[179]2[176]I[177]J[167]N[178]2
  154. 3120 C[178]RN:[129]RN[178]N[164]J:II[178]1:[141]905:[158]C(5):I$[178][200](TX$,[194](142))
  155. 3130 A$[178]"RIGHT$STR$#"[170][196](RN)[170]" = "[170]I$:[158]C(0)
  156. 3140 [141]510:[141]110:[139]A$[178]" "[176]P[167]RN[178]MP
  157. 3150 [130]:RN[178]C:[160]8:[141]12930
  158. 3152 A$[178]CR$[170]"READ(null)RESS (null)VAL(null)(null)(null)(null)":[158]C(1)
  159. 3153 [141]110:[139]A$[179][177]CR$[175]P[178]0[167]3153
  160. 3154 [158]C(0):[142]
  161. 3160 A$[178]C2$[170]"READVALNTER RIGHT$STR$ TO EDIT > ":[158]C(1):[141]310:[141]610
  162. 3170 [139]I$[178]""[176]P[167][142]
  163. 3190 [141]155:[141]491:[141]18500:[141]510:[139]ER[167]505
  164. 3195 [141]910:[132]8,J:[139]I[179]2[176]I[177]J[167][142]
  165. 3200 C[178]RN:RN[178]I:II[178]1:[141]945:A$[178]"RIGHT$STR$#"[170][196](RN)[170]" $"[170]A$:[158]C(0):I[178][197](A$)
  166. 3210 A$[178]CR$[170]"READVALNTER NEW AMOUNT >$":[158]C(1):[141]310:[139]I$[178]""[176]P[167]3230
  167. 3220 B[178][197](I$):[141]14810:II[178]1:[141]905:[141]510:[141]905:[152]8,[202](I$,2)
  168. 3230 [141]510:[160]8:RN[178]C:[139]ER[176]P[167][142]
  169. 3240 [137]3160
  170. 3300 A$[178]C2$[170]"READ(null)EPORT GENERATOR":[158]C(0)
  171. 3310 A$[178]C2$[170]"READ(null)IST ALL THE RECORDS WHERE BALANCE:
  172. 3320 A$=A$+CR$+"[135](<, >, =, <> [208][204][213][211] COMPARISON VALUE)":SYSC(0):GOSUB305
  173. 3323 IFI$=""ORPTHENRETURN
  174. 3325 A$=LEFT$(I$,1):IFA$<>"<"ANDA$<>">"ANDA$<>"="THEN3310
  175. 3330 C$=A$:IFLEFT$(I$,2)="<>"THENC$="<>":J=VAL(MID$(I$,3)):GOTO3345
  176. 3340 J=VAL(MID$(I$,2))
  177. 3345 IFPEEK(C(12))=255THENPRINT"":GOSUB12900
  178. 3350 GOSUB155:C=RN:GOSUB491:GOSUB18500:IFERTHEN3410
  179. 3355 GOSUB910:INPUT#8,K
  180. 3360 II=1:FORRN=2TOK:GOSUB945
  181. 3365 IFC$="<"THENIFVAL(A$)<JTHEN3400
  182. 3370 IFC$=">"THENIFVAL(A$)>JTHEN3400
  183. 3375 IFC$="="THENIFVAL(A$)=JTHEN3400
  184. 3380 IFC$="<>"THENIFVAL(A$)<>JTHEN3400
  185. 3390 GOSUB510:NEXT:GOTO3410
  186. 3400 B=VAL(A$):GOSUB14810:A$="[201][196]#"+STR$(RN)+" = "+I$:SYSC(0):GOTO3390
  187. 3410 CLOSE8:RN=C:GOSUB12930:GOTO3152
  188. 3450 A$=C2$+"[195]ALCULATING [199]RAND TOTALS...":SYSC(1):II=1
  189. 3455 GOSUB491:GOSUB18500:IFERTHEN505
  190. 3457 GOSUB910:INPUT#8,J
  191. 3460 B=0:C=RN:FORRN=2TOJ:GOSUB945:B=VAL(A$)+B:GOSUB510:GOSUB105:NEXT:GOSUB505
  192. 3470 GOSUB14810:A$=C2$+"[135][199]RAND TOTAL = "+I$:SYSC(0):RN=C:GOTO3152
  193. 4010 A$=C2$+"[135][210]ELEASE [208]UBLIC [206]ET [205]SG(S)":SYSC(0):S6=.
  194. 4015 GOSUB4020:A=232:GOTO1530
  195. 4020 F$="[186]PUBLIC STORAGE":GOSUB202:GOSUB510:X=0
  196. 4030 IFERTHENCLOSE8:A$=C2$+"[150][212]HERE AREN'T ANY!":GOTO160
  197. 4040 GOSUB155:A=0:SU$="
  198. 4050 [158]C(5):SR[178]ST:A$[178][200](TX$,[194](142)):[139][194](142)[179][195](TX$)[167]A$[178]A$[170]CR$
  199. 4052 X[178]X[170]1
  200. 4055 [139]A[178]2[175][200](A$,6)[178]"(null)UBJ"[167]SU$[178][202](A$,10,[195](A$)[171]10)
  201. 4057 [139]A$[178]""[170]CR$[167]4085
  202. 4060 [158]C(1):A$(A)[178]A$:A[178]A[170]1
  203. 4070 [141]110:[139]P[178]255[167]505
  204. 4080 [139]SR[178]0[175]A[179][178]ML[167]4050
  205. 4085 [160]8:A[178]A[171]1
  206. 4087 [141]13600
  207. 4090 [141]995:A$[178]C2$[170]"READ(STR$)ELETE,READ((null))EREAD,
  208. 4095 A$=A$+CR$+"[135]([200])OLD,[135]([193])UTO-RELEASE? ":SYSC(26):GOSUB13640
  209. 4100 GOSUB110:IFA$<>"[196]"ANDA$<>"[210]"ANDA$<>"[200]"ANDA$<>"[193]"ANDA$<>CR$ANDP=0THEN4100
  210. 4110 IFP=255THEN505
  211. 4120 SYSC(25):IFA$=CR$ORPTHEN4087
  212. 4130 I$=A$:GOSUB13680:A$=I$:IFA$="[196]"THENGOSUB1530:GOTO4505
  213. 4135 IFA$="[210]"THENJ=0:A=A+1:GOSUB1630:A=A-1:GOTO4087
  214. 4140 IFA$<>"[200]"THEN4200
  215. 4150 OPEN8,DV,8,DR$+"[186]PUBL.TMP,S,W":GOSUB510
  216. 4155 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+"[186]PUBL.TMP,A":GOSUB510:PRINT#8,CR$+"
  217. 4160 [139]ER[167]505
  218. 4170 S6[178]S6[170]1:A$[178]C2$[170]"READLEFT$OLDING...":[158]C(0)
  219. 4180 [129]I[178]0[164]A:[152]8,A$(I);:[130]:[160]8:A$[178]"STR$":[137]4130
  220. 4200 A$[178]C2$[170]"READ"[170]CA$(0)[170]CR$:[158]C(0)
  221. 4210 [129]I[178]1[164]CC:A$[178]"READ"[170][199](I[170]192)[170]": "[170]CA$(I):[158]C(0):[130]
  222. 4220 A$[178]C2$[170]"READ(null)ELECT A CATEGORY? ":[158]C(1):[141]13640
  223. 4230 [141]110:[139]A$[179]"ATN"[176]A$[177][199](CC[170]192)[175]P[178]0[167]4230
  224. 4240 [158]C(0):CA%(0)[178][198](A$)[171]192:[141]8004:[139]P[167]360
  225. 4250 [139]SU$[178]""[167][141]155:A$[178]"DEFASCORMAT ERROR!":[158]C(0):[141]8004:[137]4150
  226. 4260 I$[178]SU$:HM[178]HM[170]1:F$[178]"SQR"[170][196](HM)[170]"       ":F$[178][200](F$,10)[170]"2     "
  227. 4270 [141]8003:F$[178][200](F$,15)[170]A$:S5[178]S5[170]1:[141]485
  228. 4300 [159]8,DV,8,DR$[170]F$[170]",S,W":[141]510:[139]ER[167]505
  229. 4310 A$[178]C2$[170]"READ(null)TORING...":[158]C(.):MN(.)[178]MN(.)[170]1:MN(MN(.))[178]HM
  230. 4320 LK%(MN(.))[178]MN(.):CA%(MN(.))[178]CA%(.):MF%(MN(.))[178]2
  231. 4330 [129]I[178].[164]A:[152]8,A$(I);:[130]:[141]505:[139]ER[167][142]
  232. 4340 [141]1530:I[178]A:F$[178]"":[141]710:B[178]A:A[178]I
  233. 4345 [139]MN(.)[179][178]MM[175]B[177]MB[167]4400
  234. 4350 F$[178]"SQR"[170][196](MN(1))[170]" *":[141]5000:[129]I[178]1[164]MN(.):[139]LK%(I)[178]1[167]LK%(I)[178]LK%(1)
  235. 4355 [130]:MN(.)[178]MN(.)[171]1:[129]I[178]1[164]MN(.):MN(I)[178]MN(I[170]1):LK%(I)[178]LK%(I[170]1)
  236. 4360 LK%(I)[178]LK%(I)[171]1:MF%(I)[178]MF%(I[170]1):CA%(I)[178]CA%(I[170]1):MR%(I)[178]MR%(I[170]1):[130]
  237. 4365 [137]4505
  238. 4400 [139]LM[178]HM[171]1[167]LM[178]HM:BM[178]MN(1)
  239. 4405 [137]4505
  240. 4450 [141]491:F$[178]"SQRPUBLIC STORAGE":[141]5000
  241. 4455 [152]15,"R"[170]DR$[170]F$[170]"="[170]DR$[170]"SQRPUBL.TMP":[137]510
  242. 4505 [139]SR[167]4520
  243. 4510 [141]491:[159]8,DV,8,DR$[170]"SQRPUBLIC STORAGE":[129]I[178]0[164]X[171]1:[158]C(5):[130]
  244. 4512 [139]A[178][177]ML[167][158]C(5):SR[178]ST:X[178]X[170]1:[139][200](TX$,1)[179][177]""[175]SR[178]0[167]4512
  245. 4514 [139]SR[178]0[167]4040
  246. 4520 [141]505:[137]4450
  247. 5000 [152]15,"S"[170]DR$[170]F$:[142]
  248. 5001 FI$[178]"SQR+NODE":F$[178]FI$[170]" X":[141]202:[141]505:[139]ER[178].[167]5005
  249. 5003 FI$[178]"SQR+FILE":F$[178]FI$[170]" X":[141]202:[141]505:[139]ER[178].[167]5005
  250. 5004 A$[178]C2$[170]"LENREATE A DEFAULT"[170]CR$[170]"MESSAGE OR FILE FIRST!":[137]160
  251. 5005 [141]5010:[141]12210:A[178]232:[137]1530
  252. 5010 A$[178]C2$[170]"READ(null)ULTI-(null)END "[170][202]("(null)VAL(null)(null)ATNCHR$VALASCRIGHT$(null)VAL",1[171]7[172](FI$[178]"SQR+FILE"),7):[158]C(.)
  253. 5015 A$[178]CR$[170]"READVALNTER NODE # SEPARATED BY COMMAS.
  254. 5020 A$=A$+CR$+"(?=NODE LISTINGS,ALL=SELECT ALL)":SYSC(0):MT=0:A$(MT+1)="
  255. 5030 [141]305:[141]610:[139]I$[178]""[176]P[167][142]
  256. 5035 [139]I$[178]"?"[167][141]155:[141]5800:[137]5010
  257. 5037 [139]I$[178]"ALL"[167]MT[178]NN%:[129]I[178]1[164]MT:A$(I)[178][202]([196](I),2):[130]:I[178]50:[137]5090
  258. 5040 [139]I[179][177]0[167]5010
  259. 5050 [129]I[178][195](I$)[164]1[169][171]1:[139][202](I$,I,1)[178]","[167]MT[178]MT[170]1:A$(MT[170]1)[178]"":[137]5070
  260. 5060 A$(MT[170]1)[178][202](I$,I,1)[170]A$(MT[170]1)
  261. 5070 [130]:[139]MT[178]0[167]5010
  262. 5080 MT[178]MT[170]1:I[178]50
  263. 5090 F$[178]FI$[170]" X":[141]202:[141]510:[139]ER[167]505
  264. 5100 [158]C(5):SR[178]ST:A$(I)[178][200](TX$,[194](142))
  265. 5102 [139][194](142)[179][195](TX$)[167]A$(I)[178]A$(I)[170]CR$
  266. 5105 [139]SR[178]0[167]I[178]I[170]1:[137]5100
  267. 5110 [160]8:A$[178]C2$[170]"INPUTLENREATING COPIES....DIM"[170]CR$:[158]C(0)
  268. 5120 [129]X[178]1[164]MT:F$[178]FI$[170]" "[170]A$(X):[139][197](A$(X))[179]1[176][197](A$(X))[177]NN%[167]5170
  269. 5122 [159]8,DV,8,DR$[170]"SQRNODE LIST":[141]510:[139]ER[167]X[178]MT:[137]5170
  270. 5124 [129]A[178]1[164][197](A$(X)):[158]C(5):[158]C(5):[130]:[160]8:A$[178][200](TX$,1)
  271. 5126 [139]A$[178]"    "[176]A$[178]""[176]A$[178]""[176]A$[178]""[167]A$[178]A$(X)[170]" (null)(null)LEN(null)VALSTR$":[158]C(0):[137]5170
  272. 5130 [159]8,DV,8,DR$[170]F$[170]",S,W":[141]510
  273. 5135 A$[178]"":[139]FI$[178]"SQR+NODE"[167]A$[178]CR$[170]""[170]CR$
  274. 5140 [139]ER[178]63[167][160]8:[159]8,DV,8,DR$[170]F$[170]",A":[141]510:[152]8,A$;
  275. 5150 [139]ER[167]5170
  276. 5160 A$[178]A$(X)[170]": ":[158]C(1):A$[178]"READ.":[129]A[178]50[164]I:[152]8,A$(A);:[158]C(1):[130]
  277. 5165 [141]155:N%([197](A$(X)))[178]N%([197](A$(X)))[170]1
  278. 5170 [160]8:[130]:MT[178]0:[141]12210
  279. 5180 A$[178]C2$[170]"READ(null)AVE DEFAULT ((null)/(null))? ":[158]C(1):[141]1010:[158]C(0):[139]P[167][142]
  280. 5190 [139]A$[179][177]"(null)"[167][152]15,"S"[170]DR$[170]FI$[170]" X
  281. 5200 RETURN
  282. 5800 I=1:F$="[186]NODE LIST":GOSUB202:GOSUB510:IFERTHEN505
  283. 5810 SYSC(5):A$="[135]"+MID$(STR$(I),2)+":"+LEFT$(TX$,PEEK(142)):SYSC(0)
  284. 5820 SYSC(5):SR=ST:A$=LEFT$("          ",LEN(STR$(I)))+LEFT$(TX$,PEEK(142))
  285. 5825 IFLEFT$(TX$,1)=""ORLEFT$(TX$,1)=""ORLEFT$(TX$,1)="    "THENA$=A$+"[150] *[[195][204][207][211][197][196][146]]*
  286. 5830 [158]C(0):[141]110:[139]P[176]A$[178]" "[167]5850
  287. 5840 [139]SR[178]0[167]I[178]I[170]1:[137]5810
  288. 5850 [137]505
  289. 6010 [141]6020:[141]155:[141]6090:A[178]232:[137]1530
  290. 6020 X[178]0:A$[178]C2$[170]"INPUT(null)ETWORK (null)TATUS...DIM":[158]C(1)
  291. 6050 A[178]1:F$[178]"SQRNODE LIST":[141]202:[141]510:[139]ER[167]505
  292. 6060 [158]C(5):A$(A)[178][200](TX$,[194](142)):[158]C(5):SR[178]ST
  293. 6065 A$(A[170]1)[178][200](TX$,[194](142))
  294. 6070 [139]SR[178]0[167]A[178]A[170]2:[141]105:[137]6060
  295. 6080 [137]505
  296. 6090 [139]ER[167][142]
  297. 6100 A[178]1:[129]I[178]1[164]NN%[172]2[169]2:A$[178]"LIST"[170][202]([196](A),2)[170]":"[170][200](A$(I),24)
  298. 6102 [158]C(1):A$[178]" (null)(null)":[139][200](A$(I[170]1),1)[178]""[167]A$[178]" CONT(null)(null)LEN(null)VALSTR$
  299. 6104 IFLEFT$(A$(I+1),1)=""THENA$=" [150][193][195][195][197][211][211]"
  300. 6105 IFLEFT$(A$(I+1),1)=""THENA$=" [156][206][197][215] [204][207][195][203]
  301. 6106 [139][200](A$(I[170]1),1)[178]"    "[167]A$[178]" SYSLENATN(null)(null)RIGHT$VAL(null)
  302. 6110 A=A+1:SYSC(0):GOSUB110:IFA$=" "THENP=1
  303. 6120 IFPTHENI=NN%*2
  304. 6130 NEXT
  305. 6140 A$=C2$+"[135][197]NTER [206]ODE# OR [210][197][212][213][210][206]? "+CR$+"(?=LIST AGAIN)":SYSC(0)
  306. 6145 GOSUB305:GOSUB610
  307. 6147 IFI$="?"THEN6100
  308. 6150 IFPORI$=""THEN6210
  309. 6160 IFI<1ORI>NN%THENRETURN
  310. 6170 A$=C2$+"[135]([204])OCK, [135]([213])NLOCK? ":SYSC(1):GOSUB13640
  311. 6180 GOSUB110:IFA$<>"[204]"ANDA$<>"[213]"ANDP=0THEN6180
  312. 6185 IFPTHENRETURN
  313. 6190 SYSC(0):I$="":IFA$="[204]"THENI$="
  314. 6195 [139][198](A$(I[172]2))[179]24[167]A$(I[172]2)[178][202](A$(I[172]2),2)
  315. 6200 A$(I[172]2)[178]I$[170]A$(I[172]2):X[178]1:[137]6140
  316. 6210 [139]X[178]0[167][142]
  317. 6220 A$[178]C2$[170]"INPUT(null)AVING CHANGES....DIM":[158]C(1)
  318. 6230 F$[178]"SQRNODE LIST":[141]491:[152]15,"S"[170]DR$[170]F$
  319. 6240 [159]8,DV,8,DR$[170]F$[170]",S,W"
  320. 6250 [129]I[178]1[164]NN%[172]2:[152]8,A$(I):[141]105:[130]:[137]505
  321. 6290 F$[178]"SQRNODE.TMP":[137]6305
  322. 6300 F$[178]"SQRCOND.TMP":[141]6305:[141]491:[152]15,"S"[170]DR$[170]"SQRCOND.TMP":[142]
  323. 6305 [141]202:[141]510:[139]ER[167]505
  324. 6307 [141]1110:A[178]0
  325. 6310 [158]C(5):SR[178]ST:A$(A)[178][200](TX$,[194](142))
  326. 6320 [139][194](142)[179][195](TX$)[167]A$(A)[178]A$(A)[170]CR$
  327. 6330 [139]SR[178]0[175]A[179][178]ML[167]A[178]A[170]1:[137]6310
  328. 6340 [141]505:[141]486:F$[178]"SQRPRIVATE 2"
  329. 6350 [159]8,DV,8,DR$[170]F$[170]",S,W":[141]510
  330. 6360 [139]ER[178]63[167][160]8:[159]8,DV,8,DR$[170]F$[170]",A":[141]510:[152]8,CR$[170]"
  331. 6370 IFERTHEN505
  332. 6380 PRINT#8,"[198]ROM:[146] [206][197][212][215][207][210][203] [211][217][211][212][197][205][211]"CR$"[196]ATE:[146] "DA$" - "T$
  333. 6389 PRINT#8,"[211]UBJ:[146] ";:IFRN=1THENPRINT#8,"[206]ODE APPLICATION":GOTO6391
  334. 6390 PRINT#8,"[206]ODE CONDITIONS
  335. 6391 [152]8,"(null)ODE:WAIT "NA$C2$
  336. 6392 [139]RN[179][177]1[167][152]8,"   (null)(null)STR$VAL (null)ATN(null)RIGHT$STR$ATN(null)RIGHT$(null)(null) (null)VAL(null)(null)(null) ASC(null)(null)(null)(null)(null)(null) WAIT"CR$:[137]6400
  337. 6395 [152]8,"   (null)(null)STR$VAL ATN(null)(null)(null)RIGHT$LENATN(null)RIGHT$(null)(null) ASC(null)(null)(null)(null)(null)(null) WAIT"CR$:I$[178]A$(0)
  338. 6400 [129]I[178]0[164]A:[152]8,A$(I);:A$(I)[178]"":[130]
  339. 6410 [139]RN[179][177]1[167]505
  340. 6420 [152]8,CR$"    DON'T FORGET TO VALIDATE ME! WAIT":[137]505
  341. 6600 [153]C2$"ATNDDING NEW USER TO NODE ACCOUNTS...
  342. 6603 GOSUB6610
  343. 6605 GOSUB491:PRINT#15,"S"+DR$+"[186]NODE.TMP":RETURN
  344. 6610 NA$=LEFT$(I$,40):I=LEN(NA$)
  345. 6620 IFMID$(NA$,I,1)>"*"ANDMID$(NA$,I,1)<"_"THEN6645
  346. 6625 IFASC(MID$(NA$,I,1))>192ANDASC(MID$(NA$,I,1))<219THEN6645
  347. 6627 IFMID$(NA$,I,1)=" "THEN6645
  348. 6630 NA$=LEFT$(NA$,I-1)+MID$(NA$,I+1)
  349. 6645 IFI>1THENI=I-1:GOTO6620
  350. 6650 GOSUB18520:IFERTHEN505
  351. 6655 NA$=LEFT$(NA$,20):IFNA$=""THENNA$="[206][197][215] [206][207][196][197]
  352. 6660 RN[178]NI%:II[178]1:[141]905:[141]510:[152]8,NA$:[141]510:II[178]27
  353. 6670 [141]905:[141]510:[152]8,PW$:[141]510:II[178]38:[141]905:[141]510
  354. 6672 [152]8,0:[143] _ THIS SETS THE NEW USERS LEVEL. 1=AUTOVALIDAT, 0=MANUAL
  355. 6675 II[178]43:[141]905:[141]510:[152]8,DA$:[141]510
  356. 6680 II[178]1:[141]905
  357. 6690 [141]910:[132]8,J:[139]NI%[177]J[167][141]910:[152]8,NI%:J[178]NI%
  358. 6698 NI%[178]0:II[178]1:[129]RN[178]2[164]J
  359. 6700 [141]945:[139]A$[178]"SQRSTR$VAL(null)VAL(null)VALSTR$SQR"[176][200](A$,1)[178][199](255)[167]NI%[178]RN:RN[178]J
  360. 6710 [130]:[139]NI%[178]0[167]NI%[178]J[170]1:[141]910:[152]8,NI%
  361. 6720 [137]505
  362. 6800 [141]6805:F$[178]"SQRNTWRK.PARMS!":[141]203:[160]8:[139]ER[167][142]
  363. 6802 F$[178]"SQRNTWRK.PARMS":[141]5000:[152]15,"R"[170]DR$[170]F$[170]"="[170]DR$[170]F$[170]"!":[142]
  364. 6805 RN[178][182](RN):[141]481:F$[178]"SQRNTWRK.PARMS":[141]203:[141]510
  365. 6810 A[178]1:[139]ER[167]505
  366. 6820 [158]C(5):SR[178]ST:A$(A)[178][200](TX$,[194](142)):[139]SR[178]0[175]A[179]100[167]A[178]A[170]1:[137]6820
  367. 6830 [160]8
  368. 6840 [159]8,DV,8,DR$[170]F$[170]"!,S,W":[141]510
  369. 6850 [139]ER[178]63[167][160]8:[159]8,DV,8,DR$[170]F$[170]"!,A":[141]510
  370. 6860 [139]ER[167]505
  371. 6900 B[178](H[172]100)[171]X%[172]4[170]3:[139]B[179]1[176]B[177]100[167]6910
  372. 6905 [139][197](A$(X%[172]4[170]3[171]((H[171]1)[172]100)))[178]1[167]A$(X%[172]4[170]3[171]((H[171]1)[172]100))[178][196](RN)
  373. 6910 [129]I[178]1[164]A:[152]8,A$(I):A$(I)[178]"":[130]:[141]505
  374. 6920 [139]SR[167][142]
  375. 6930 [141]203:[129]I[178]1[164]H[172]100:[158]C(5):[130]:H[178]H[170]1:A[178]1:[137]6820
  376. 7010 A[178]OP%:[141]1200
  377. 7020 A$[178]C2$[170]"READ(null)(null)VAL(null) WINDOW ["[170]F$[170]"] >":[158]C(1):[141]310:[141]610
  378. 7030 [139]I$[178]""[176]P[167]7060
  379. 7040 [139]I[179]0[176]I[177]23[167]7020
  380. 7050 A[178]I:[141]1200:A$[178]C2$[170]"READ(null)PEN: "[170]F$:[158]C(0):OP%[178]I
  381. 7060 A[178]CL%:[141]1200
  382. 7070 A$[178]C2$[170]"READLEN(null)(null)(null)VAL WINDOW ["[170]F$[170]"] >":[158]C(1):[141]310:[141]610
  383. 7080 [139]I$[178]""[176]P[167][142]
  384. 7090 [139]I[179]0[176]I[177]23[167]7070
  385. 7095 A[178]I:[141]1200:A$[178]C2$[170]"READLENLOSE: "[170]F$:CL%[178]I:[137]160
  386. 7110 C[178]RN:[141]7120:[139]ER[178]0[167][141]6690
  387. 7115 RN[178]C:[137]505
  388. 7120 [141]18520:[139]ER[167]505
  389. 7130 [141]910:[132]8,J
  390. 7140 A$[178]CR$[170]"READ(null)EXT FREE RIGHT$STR$ NUMBER ="[170][196](NI%):[158]C(0)
  391. 7143 A$[178]CR$[170]"READVALNTER RECORD NUMBER (?=LIST) > ":[158]C(1)
  392. 7145 [141]310:[141]610:[139]P[167]360
  393. 7147 [139]I$[178]"?"[167][141]7300:[137]7140
  394. 7148 [139]I$[178]""[176]I[178]0[167][142]
  395. 7149 [139]I[179]2[167]7140
  396. 7150 RN[178]I:[141]155
  397. 7160 II[178]1:[141]945:A$(1)[178]A$:A$[178]"READ(null)AME : "[170]A$(1):[158]C(0)
  398. 7170 II[178]27:[141]945:A$(2)[178]A$:A$[178]"READ(null)SWD : "[170]A$(2):[158]C(0)
  399. 7180 II[178]38:[141]945:A$(3)[178]A$:A$[178]"READ(null)EVEL: "[170]A$(3):[158]C(1)
  400. 7182 [139][197](A$(3))[178]0[167]A$[178]" ((null)(null)(null)ATN(null)RIGHT$STR$ATN(null)VALSTR$)
  401. 7184 IFVAL(A$(3))=1THENA$=" ([213][206][210][197][208][204][217][193][194][204][197])
  402. 7186 [139][197](A$(3))[177]1[167]A$[178]" ((null)VAL(null)(null)(null)ATNPEEK(null)VAL)
  403. 7190 SYSC(0):II=43:GOSUB945:A$(4)=A$:A$="[135][196]ATE : "+A$(4):SYSC(0)
  404. 7200 A$=CR$+"[135][212]YPE '[196][197][204][197][212][197]' TO REMOVE"+CR$:SYSC(0)
  405. 7203 A$="[135][206]AME > ":SYSC(1):POKEC(23),1:GOSUB310:GOSUB390:IFI$="[196][197][204][197][212][197]"THEN7360
  406. 7205 IFI$<>""THENA$(1)=LEFT$(I$,25)
  407. 7210 A$="[135][208]SWD > ":SYSC(1):GOSUB310:GOSUB390:IFI$<>""THENA$(2)=LEFT$(I$,9)
  408. 7220 A$="[135][204]EVEL (?)> ":SYSC(1):POKEC(23),0:GOSUB310:GOSUB610
  409. 7222 IFI$="?"THENCLOSE8:GOSUB7400:GOSUB18520
  410. 7225 IFI$<>""ANDI<NN%+2THENA$(3)=LEFT$(STR$(I),3)
  411. 7226 IFI<2ORI>NN%+1ORI$=""THEN7230
  412. 7227 CLOSE8:GOSUB491:OPEN8,DV,8,DR$+"[186]NODE LIST":GOSUB510:IFERTHENGOSUB505:GOTO7230
  413. 7228 FORA=1TOI-1:SYSC(5):A$=LEFT$(TX$,PEEK(142)):SYSC(5):NEXT:I$=LEFT$(A$,25)
  414. 7229 GOSUB390:A$="[135][204]INK SET WITH "+I$+"[146]":SYSC(0):CLOSE8:GOSUB18520
  415. 7230 A$="[135][196]ATE> ":SYSC(1):GOSUB310:GOSUB390:IFI$<>""THENA$(4)=LEFT$(I$,8)
  416. 7235 A$=CR$+"[135][195]ORRECT ([217]/[206]/[193]BORT)? ":SYSC(1):GOSUB13640
  417. 7240 GOSUB110:IFA$<>"[217]"ANDA$<>"[206]"ANDA$<>"[193]"ANDP=0THEN7240
  418. 7245 IFPTHEN360
  419. 7250 SYSC(0):IFA$="[206]"THEN7200
  420. 7255 IFA$="[193]"THEN7140
  421. 7260 II=1:GOSUB905:GOSUB510:PRINT#8,A$(1):II=27:GOSUB905:GOSUB510:PRINT#8,A$(2)
  422. 7270 II=38:GOSUB905:GOSUB510:PRINT#8,A$(3):II=43:GOSUB905:GOSUB510:PRINT#8,A$(4)
  423. 7280 A=4:GOSUB1530
  424. 7290 IFRN>JTHENNI%=RN:J=RN:GOSUB910:PRINT#8,J
  425. 7295 GOTO7140
  426. 7300 A$=CR$+"[135][211]TART AT REC# (2) >":SYSC(1):GOSUB310:GOSUB610:IFPTHENRETURN
  427. 7302 X=2:IFI>1ANDI<=JTHENX=I
  428. 7308 IFPEEK(C(12))=255THENPRINT"":GOSUB12900
  429. 7310 A$="   [206]AME, [208]ASSWORD, [204]VL, [204]AST [196]ATE"+CR$:SYSC(0)
  430. 7320 A=0:FORRN=XTOJ:II=1:GOSUB945:IFA$="[186][196][197][204][197][212][197][196][186]"ORLEFT$(A$,1)=CHR$(255)THEN7345
  431. 7323 A=A+1:I$=MID$(STR$(RN),2)+") "+A$+",":II=27:GOSUB945
  432. 7325 I$=I$+A$+",
  433. 7330 II[178]38:[141]945:I$[178]I$[170][202]([196]([197](A$)),2):[139][197](A$)[179]1[167]I$[178]""[170]I$
  434. 7335 II[178]43:[141]945:A$[178]I$[170]","[170]A$
  435. 7340 [158]C(0):II[178]1:[141]905:[141]110:[139]A$[178]" "[176]P[167]RN[178]J
  436. 7345 [130]:A$[178]CR$[170]"READ"[170][202]([196](A),2)[170]" RECORDS DISPLAYED.":[158]C(0):[139]PR[167]12930
  437. 7350 [142]
  438. 7360 [141]1005:[158]C(0):[139]P[176]A$[178]"(null)"[167]7200
  439. 7370 A$(1)[178]"SQRSTR$VAL(null)VAL(null)VALSTR$SQR":NI%[178]RN:[137]7260
  440. 7400 A$[178]C2$[170]"READ(null)ELECT NODE FOR AUTOREPLY LINK"[170]CR$:[158]C(0)
  441. 7410 F$[178]"SQRNODE LIST":[141]202:[141]510:[139]ER[167]505
  442. 7415 [129]A[178]1[164]NN%
  443. 7420 A$[178]"READ"[170][202]([196](A),2)[170]"> ":[158]C(5):A$[178]A$[170][200](TX$,25):[158]C(0):[158]C(5)
  444. 7430 [141]110:[139]A$[178]" "[167]P[178]1
  445. 7440 [139]P[167]A[178]NN%
  446. 7450 [130]:[160]8
  447. 7460 A$[178]CR$[170]"READ(null)ELECT NODE# OR (null)VAL(null)(null)(null)(null) (?=LIST) > ":[158]C(1)
  448. 7470 [141]310:[141]610:[139]P[167][142]
  449. 7480 [139]I$[178]"?"[167][141]155:[137]7410
  450. 7490 I$[178]"":[139]I[177]0[175]I[179][178]NN%[167]I[178]I[170]1:I$[178][196](I)
  451. 7495 [137]155
  452. 7500 MT%[178]0:A$[178]C2$[170]"READ(null)ODEM SPEAKER (null)(null) ((null)/(null))? ":[158]C(1):[141]1010
  453. 7510 [158]C(0):[139]A$[178]"(null)"[167]MT%[178]1
  454. 7520 [142]
  455. 7600 A$[178]C2$[170]"ASCILE ATNTTACH"[170]C2$[170]"(null)ELECT ASCILE (null)O ATNTTACH:":[158]C(0)
  456. 7610 [141]41505
  457. 7620 [139]P[167][142]
  458. 7630 T[178]1:[159]8,DV,8,DR$[170]FI$[170]",P":[141]510:[160]8
  459. 7640 [139]ER[178]64[167][159]8,DV,8,DR$[170]FI$[170]",S":[141]510:T[178]2
  460. 7650 [160]8:D[178]DV:D$[178]DR$:[139]ER[167]7600
  461. 7660 A$[178]C2$[170]"(null)ELECT NODE (1-"[170][202]([196](NN%),2)[170]")":[158]C(0)
  462. 7670 A$[178]"(?=(null)IST,X=DEFAULT> ":[158]C(1)
  463. 7680 [141]310:[139]P[167]360
  464. 7690 [141]610:[139]I$[178]"?"[167][141]155:[141]5800:[137]7660
  465. 7700 [139]I$[178]"X"[167]I[178][171]1:C[178]0:[137]7760
  466. 7710 [139]I[178]0[167][142]
  467. 7712 F$[178]"SQRNODE LIST":[141]202:[141]510:[139]E[167]505
  468. 7720 [129]X[178]1[164]I:[158]C(5):I$[178][200](TX$,[194](142)):[158]C(5):[130]:[160]8
  469. 7730 I$[178][200](I$,25):[141]390
  470. 7740 A$[178]C2$[170]"RIGHT$S "[170]I$[170]" CORRECT ((null)/(null))? ":[158]C(1):[141]1010:[139]P[167][142]
  471. 7750 [158]C(0):[139]A$[179][177]"(null)"[167]7660
  472. 7752 C[178]0:A$[178]C2$[170]"READSTR$O YOU WANT TO HAVE THIS FILE":[158]C(0)
  473. 7754 A$[178]"DELETED AFTER IT IS SENT ((null)/(null))? ":[158]C(1):[141]1010:[139]P[167]360
  474. 7756 [158]C(0):[139]A$[178]"(null)"[167]C[178]99
  475. 7760 A$[178]C2$[170]"LENHECKING BLOCK SIZE...":[158]C(1)
  476. 7770 [141]499:F$[178]FI$:[141]710
  477. 7790 A$[178]C2$[170]"READASCILE IS"[170][196](A)[170]" BLOCKS.":[158]C(0)
  478. 7800 [139]A[177]450[167]A$[178]CR$[170]"DEF(null)AXIMUM OF 450 BLKS PER FILE!":[158]C(.)
  479. 7805 [139]A[177]450[167][129]A[178].[164]1E3:[130]:[142]
  480. 7815 A$[178]C2$[170]"READVALNTER FILENAME FOR RECIPIENT."[170]CR$[170]"(LEN(null)="[170]FI$[170]")"[170]CR$[170]"> ":[158]C(1)
  481. 7816 [141]310:[141]390:[139]P[167]360
  482. 7817 [139]I$[178]""[167]I$[178]FI$
  483. 7818 A$[178][196](I):[139]I[178][171]1[167]A$[178]" X
  484. 7820 GOSUB491:OPEN8,DV,8,DR$+"[186]+FILE"+A$+",S,W":GOSUB510
  485. 7830 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+"[186]+FILE"+A$+",A
  486. 7840 [141]510:[139]ER[167]505
  487. 7850 [152]8,I$CR$D;CR$D$CR$H$(10)CR$FI$CR$T;CR$A;CR$C
  488. 7860 [139]I[177]0[167]N%(I)[178]N%(I)[170]1
  489. 7870 [160]8:[139][200](FI$,1)[178]"@"[167][142]
  490. 7880 [141]499:[139]SD$[179][177]""[167]FI$[178][202](FI$,2)
  491. 7900 FI$[178]"@"[170]FI$:[159]8,DV,8,DR$[170]FI$:[141]505:[139]ER[167][142]
  492. 7910 A$[178]CR$[170]"ATNTTACH FILE'S"[170]CR$[170]"DESCRIPTION TOO? ((null)/(null)) ":[158]C(1):[141]1010
  493. 7920 [158]C(0):[139]P[176]A$[178]"(null)"[167][142]
  494. 7930 T[178]2:I$[178]"@"[170]I$:F$[178]FI$:[141]710:A$[178]CR$[170]"ATNTTACHING...":[158]C(.)
  495. 7940 [137]7818
  496. 8003 LG$[178]LG$[170][200](I$,50):[137]8005
  497. 8004 LG$[178]LG$[170][200](A$,50)
  498. 8005 LG$[178]LG$[170]",":[139][195](LG$)[179]200[167][142]
  499. 8010 [139]LG$[178]NU$[170]C2$[167][142]
  500. 8015 LG[178][183](40960)[170]256[172][183](40961):[139]LG[177]48896[167][158]C(18):[137]8015
  501. 8020 [129]II[178]1[164][195](LG$):[151]LG[170]II,[198]([202](LG$,II,1)):[130]:LG[178]LG[170]II[171]1:[151]LG[170]1,0
  502. 8040 [151]40960,LG[171]([181](LG[173]256))[172]256:[151]40961,[181](LG[173]256):LG$[178]"":[142]
  503. 8100 [153]C2$"STR$ISTRIBUTING MESSAGES...":MH[178]0:A[178][171]1:PN[178]0
  504. 8110 [141]8140:[141]491:F$[178]"SQRNODE.TMP":[141]5000
  505. 8120 A[178]232:[141]1530:A$[178][196](PN)[170]" PUBLICS SENT,"[170][196]([181](S[173]6)[173]10)[170]" MINS.CONT
  506. 8125 IFAR%AND255THENS6=.
  507. 8130 LG$=LG$+"[154]"+A$:GOTO8010
  508. 8140 GOSUB491:OPEN8,DV,8,DR$+"[186]NODE.TMP":GOSUB510
  509. 8150 IFERTHEN505
  510. 8160 IFMHTHENRETURN
  511. 8170 SYSC(5):SR=ST:A$=LEFT$(TX$,PEEK(142)):IFPEEK(142)<LEN(TX$)THENA$=A$+CR$
  512. 8180 IFA$=""+CR$THENMH=MH+1:A=A-1:GOTO8270
  513. 8190 IFA=3ANDLEFT$(A$,6)<>"[206]ODE"THEN8210
  514. 8200 IFA=3ANDLV>1THENA$=""+LEFT$(A$,LEN(A$)-1)+" (#"+MID$(STR$(LV-1),2)+")"+CR$
  515. 8210 IFA=-1ANDA$="[186]+PUBL"+CR$THENJ=1:GOTO8250
  516. 8230 IFA=-1THENFR$=MID$(A$,8):J=VAL(FR$):GOTO8250
  517. 8240 A$(A)=A$
  518. 8250 IFSR=0ANDA<=MLTHENA=A+1:GOTO8170
  519. 8260 IFA>MLANDSR=0THENMH=MH+1:GOSUB8570
  520. 8270 GOSUB505:IFJ=2THEN8340
  521. 8280 IFJ=1THEN8420
  522. 8290 FR$=MID$(FR$,LEN(STR$(VAL(FR$))))
  523. 8300 IFRIGHT$(FR$,1)=CR$THENFR$=LEFT$(FR$,LEN(FR$)-1)
  524. 8310 GOSUB18510:IFERTHENCLOSE8:J=J*-1:GOTO8330
  525. 8320 XX=RN:II=11:RN=J:GOSUB945:GOSUB505:IFA$<>FR$THENJ=J*-1
  526. 8330 RN=XX:IFJ<2THENGOSUB8440
  527. 8340 GOSUB486:M=A:GOSUB16300:I=A:A=M:IFI>0THEN8370
  528. 8350 GOSUB13610:GOSUB491:F$="[186]NODE.TMP":PRINT#15,"R"+DR$+F$+TI$+"="+DR$+F$
  529. 8360 RETURN
  530. 8370 I$="[186]PRIVATE"+STR$(J):GOSUB8003
  531. 8380 OPEN8,DV,8,DR$+I$+",S,W":GOSUB510
  532. 8390 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+I$+",A":GOSUB510:PRINT#8,CR$+"
  533. 8400 [129]I[178]0[164]A:[152]8,A$(I);:A$(I)[178]"":[130]:[141]505:[137]8510
  534. 8410 SU$[178][202](A$(3),10):[141]4260:[141]8510:[137]8510
  535. 8420 S6[178]S6[170]1:PN[178]PN[170]1
  536. 8425 [139]AR%[175]255[167]CA%(0)[178]AR%[175]255:A$[178][199]((AR%[175]255)[170]192):[141]8004:[137]8410
  537. 8430 I$[178]"SQRPUBLIC STORAGE":[137]8380
  538. 8440 [139][200](A$(4),1)[178]"LOAD"[167]8460
  539. 8450 A$(3)[178]A$(3)[170]CR$[170]"READRIGHT$NVALID STR$ESTINATION:"[170][196]([182](J))[170]"-"[170]FR$[170]CR$:[137]8500
  540. 8460 A$(4)[178]A$(4)[170]CR$[170]"READINVALID DESTINATION:"[170][196]([182](J))[170]"-":F$[178]FR$
  541. 8470 [129]I[178]1[164][195](FR$):[139][198]([202](FR$,I,1))[179]193[176][198]([202](FR$,I,1))[177]218[167]8490
  542. 8480 FR$[178][200](FR$,I[171]1)[170][199]([198]([202](FR$,I,1))[171]128)[170][202](FR$,I[170]1)
  543. 8490 [130]:A$(4)[178]A$(4)[170]FR$[170]CR$:FR$[178]F$
  544. 8500 J[178]2:[142]
  545. 8510 [139]SR[167][142]
  546. 8520 X[178]MH:[141]8140:[139]ER[167][142]
  547. 8530 [158]C(5):SR[178]ST:[139][200](TX$,1)[179][177]""[175]SR[178]0[167]8530
  548. 8540 [139]SR[167]505
  549. 8550 X[178]X[171]1:[139]X[178]0[167]A[178][171]1:[137]8170
  550. 8560 [137]8530
  551. 8570 [158]C(5):SR[178]ST:[139]SR[178]0[175][200](TX$,1)[179][177]""[167]8570
  552. 8580 [142]
  553. 9991 A$[178]"DEF(null)(null)2 LEN(null)ATN(null)LEFT$VALSTR$!!!":[158]C(0):LG$[178]LG$[170]A$:[141]8010:[141]13652
  554. 9999 [160]2:[160]8:OV[178]5:[152]5:[137]95
  555. 10000 [139]N%(X%)[179]0[167][142]
  556. 10003 J[178]0:F$[178]"SQRNODE VERIFY"[170][196](X%):[141]202:[141]510:[139]ER[167]505
  557. 10005 [153]C2$"(null)ENDING NOTIFICATIONS....
  558. 10010 SYSC(5):I$=LEFT$(TX$,PEEK(142)):SYSC(5):NA$=LEFT$(TX$,PEEK(142))
  559. 10030 SYSC(5):R1=VAL(LEFT$(TX$,PEEK(142))):SYSC(5):SR=ST:SU$=LEFT$(TX$,PEEK(142))
  560. 10035 CLOSE8:J=J+1
  561. 10040 GOSUB486:F$="[186]PRIVATE"+STR$(R1)
  562. 10050 OPEN8,DV,8,DR$+F$+",S,W":GOSUB510
  563. 10060 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+F$+",A":GOSUB510:PRINT#8,CR$+"
  564. 10070 [139]ER[167]505
  565. 10080 [152]8,"ASCROM:WAIT (null)VAL(null)(null)(null)(null)(null) (null)(null)(null)(null)VAL(null)(null)"CR$"STR$ATE:WAIT "DA$" - "T$
  566. 10090 [152]8,"(null)UBJ:WAIT (null)ODE (null)ERIFICATION"CR$"(null)ODE:WAIT "NA$C2$
  567. 10100 [152]8,"READ(null)ET (null)SG TO:"NA$" (#"[202]([196](X%),2)")"CR$
  568. 10110 [152]8,"READ(null)UBJECT: "SU$C2$"READLENREATED: "I$C2$"READ(null)ENT: "DA$" - "T$:[141]505
  569. 10115 F$[178]"SQRNODE VERIFY"[170][196](X%):[141]202:[139]SR[167][160]8:[137]5000
  570. 10120 [129]I[178]1[164]J:[129]X[178]1[164]4:[158]C(5):[130]:[130]:[137]10010
  571. 11750 [141]481:[159]8,DV,8,DR$[170]"SQRNTWRK.PARMS":[141]510
  572. 11760 [139]ER[167]505
  573. 11770 [132]8,NN%,AR%:[134]NN(NN%,1),N%(NN%)
  574. 11775 [132]8,OP%,CL%,NN$,N%(.):[139]AR%[179]0[167]AR%[178][171]AR%:NN(.,.)[178]1
  575. 11780 [129]I[178]1[164]NN%:[132]8,A,A,A$,A$:[130]
  576. 11790 [132]8,D(11),H$(11):[160]8
  577. 11800 [141]491:[139]N%(0)[179]0[167]BN%[178]1:N%(0)[178][182](N%(0))
  578. 11810 [159]8,DV,8,DR$[170]"SQRNODE LIST":[141]510:[139]ER[167]NN%[178]0:[137]505
  579. 11820 [129]I[178]1[164]NN%:[132]8,A$:NN(I,0)[178][197]([202](A$,27,4))
  580. 11825 NN(I,1)[178][197]([202](A$,33,4)):[132]8,A$:[130]:[160]8
  581. 11830 C[178][194](52371):[139]C[178]23[176]C[178]176[167]C[178]52370:[137]11840
  582. 11832 C[178][194](52375):[139]C[178]23[176]C[178]176[167]C[178]52374:[137]11840
  583. 11833 C[178][194](52361):[139]C[178]23[176]C[178]176[167]C[178]52360:[137]11840
  584. 11835 A$[178]"(null)(null) CONFLICT. (null)ET-(null)IMEOUT INACTIVE!":[137]555
  585. 11840 [140]:[129]I[178]52912[164]52949:[135]A:[151]I,A:[130]
  586. 11845 [158]C(33):[151]C,32:[151]C[170]1,176:[151]C[170]2,206:[151]52950,0:[158]C(32):[142]
  587. 11850 [131]173,214,206,240,18,238,216,206,208,13,238,215,206,173,215,206,201,71
  588. 11860 [131]208,3,76,203,206,173,23,196,96,173,19,3,73,255,141,19,3,76,199,206
  589. 11870 [151]52011,1:[142]
  590. 12210 S7[178]0:[129]I[178]1[164]NN%:[139]N%(I)[167]S7[178]S7[170]1
  591. 12215 [130]:[142]
  592. 12900 [133]"((null))CREEN OR ((null))RINTER  SCMDCMDCMD";A$:[139]A$[178]"P"[167]12940
  593. 12930 [160]3:[159]3,3:PR[178]0:[142]
  594. 12940 [160]3:[159]3,4,7:[160]3:[139]ST[178]0[167][159]3,4,7:PR[178]1:[142]
  595. 12945 [137]12930
  596. 13600 [139][194](53272)[178]21[176][194](C(12))[178]255[167][142]
  597. 13602 [153]"(null)NLINE:"RN"CMD-"NA$"WAIT ("[202]([196](BR),2)")":[142]
  598. 13610 [141]155:A$[178]"DEF(null)ESSAGE PEEKANK ASCULL!":[141]8004:[137]160
  599. 13640 [139][194](53272)[178]21[167][142]
  600. 13642 A$[178]"ONORTAN^CMD(null)CMDCMDCMD/TANEXPCMDCMDCMDCMDONON(null)READ":[158]C(1):[142]
  601. 13650 [146]673,1,1
  602. 13652 [151]C(28),0:[151]56577,M3:[151]C(31),0:[139]BR[179]1200[167]BR[178]300:[141]27500
  603. 13653 [141]13695:[139]CD[178]([194](56577)[175]16)[167]13660
  604. 13654 A$[178]"+++":[158]C(1):[151]56577,0:[141]13695:[151]56577,M3:[152]5,"ATS0=0H0":[137]13653
  605. 13660 [139]AT[167]B$[178]"ATS0=0":[152]5,B$:[129]I[178]1[164]2000:[130]:[139]AT[177]0[167][141]15917
  606. 13665 [142]
  607. 13670 A$[178]C2$[170]"DEF(null)INE NUMBER OUT OF RANGE!":[137]160
  608. 13680 [139]([194](53281)[175]15)[177]0[176][194](53272)[178]21[167]A$[178]"LOADLET":[158]C(1)
  609. 13685 [142]
  610. 13695 I[178]TI[170]120
  611. 13696 [161]#5,A$:[139]A$[179][177]""[167][153][199]([198](A$)[175]127);
  612. 13697 [139]I[177]TI[167]13696
  613. 13698 [142]
  614. 13950 A$[178][199](142):[158]C(1):A$(4)[178]"LOAD"[170]A$[170]A$(4):[139]A[178]4[167]A[178]5:A$[178]A$(4):[158]C(1)
  615. 13960 [142]
  616. 14810 I$[178][196](B):Z[178]0:[129]I[178]1[164][195](I$):[139][202](I$,I,1)[178]"E"[167]Z[178]I
  617. 14820 [130]:[139]Z[177]0[167]I$[178]"0.00":[142]
  618. 14840 [139][202](I$,2,1)[178]"."[167]I$[178][200](I$,1)[170]"0"[170][202](I$,2)
  619. 14850 Z[178]0:[129]I[178]1[164][195](I$):[139][202](I$,I,1)[178]"."[167]Z[178]I
  620. 14860 [130]:[139]Z[178]0[167]Z[178][195](I$)[170]1:I$[178]I$[170]".
  621. 14870 I$=I$+"00":I$=LEFT$(I$,Z+2):IFB=>0THENI$=MID$(I$,2)
  622. 14880 I$="$"+I$:RETURN
  623. 15915 PRINT#5,B$:IFCD<>(PEEK(56577)AND16)THENRETURN
  624. 15917 I=TI+180
  625. 15920 GET#5,A$:IFI<TITHEN15915
  626. 15930 IFA$=""THEN15920
  627. 15940 I$=RIGHT$(I$,1)+A$:IFI$<>"OK"THEN15920
  628. 15950 RETURN
  629. 16300 F$="":GOSUB710:A=A-MB:RETURN
  630. 18500 GOSUB491:OPEN8,DV,8,DR$+"[186]NODE BILLING":GOTO510
  631. 18510 GOSUB480:OPEN8,DV,8,DR$+"[186]PASSWORD FILE":GOTO510
  632. 18520 GOSUB491:OPEN8,DV,8,DR$+"[186]NODE ACCOUNTS":GOTO510
  633. 18710 GOSUB481
  634. 18712 A=3:OPEN8,DV,8,DR$+"[186]APPLICATION":GOSUB510:IFERTHEN505
  635. 18714 SYSC(5):SR=ST:A$=LEFT$(TX$,PEEK(142)):IFLEFT$(A$,1)<>"#"THENSYSC(0)
  636. 18715 IFLEFT$(A$,1)<>"#"THEN18717
  637. 18716 Z$=MID$(A$,2)+" ":GOSUB305:A$(A)=Z$+I$:A=A+1:GOSUB155:IFI$=""THENA=A-1
  638. 18717 IFSR=0ANDP<>255THEN18714
  639. 18718 CLOSE8:IFPTHEN360
  640. 18720 FORI=3TOA:A$="[135]"+A$(I):SYSC(0):NEXT
  641. 18725 A$=C2$+"[135][201]S THIS CORRECT? ":SYSC(1):GOSUB1010:SYSC(0):IFA$="[206]"THEN18710
  642. 18750 A$=C2$+"[135][211]TORING INFO...":SYSC(1)
  643. 18755 IFP=255THENGOSUB360:GOTO8004
  644. 18760 A$(0)="[198]ROM:[146] "+NA$+" (#"+MID$(STR$(RN),2)+")
  645. 18765 A$(1)[178]"STR$ATE:WAIT "[170]DA$[170]" - "[170]T$
  646. 18770 A$(2)[178]"(null)UBJ:WAIT ATNPPLICATION"[170]CR$[170]"READ":F$[178]"SQRPRIVATE 2
  647. 18780 GOSUB486:OPEN8,DV,8,DR$+F$+",S,W":GOSUB510:IFER=0THEN18810
  648. 18790 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+F$+",A":GOSUB510:PRINT#8,CR$+"
  649. 18800 [139]ER[167]505
  650. 18810 [129]I[178]0[164]A:[152]8,A$(I):[141]105:[139]F$[178]"SQRQUEST"[170][200](DA$,2)[167]A$(I)[178]"
  651. 18830 NEXT:IFF$="[186]PRIVATE 2"THENF$="[186]QUEST"+LEFT$(DA$,2):CLOSE8:GOTO18780
  652. 18835 GOTO505
  653. 21120 X=1:GOSUB491:F$="[186]NODE X USERS":GOSUB5000
  654. 21125 A=0:RN=2:PRINTC2$"[195]REATING MEMBER LIST...";
  655. 21130 GOSUB18510:IFERTHEN505
  656. 21140 GOSUB910:INPUT#8,J
  657. 21160 II=93:GOSUB945:IFVAL(A$)<CM%(40,2)THEN21210
  658. 21180 II=11:GOSUB945
  659. 21200 A$(A)=STR$(RN)+": "+A$:PRINT".";:IFA=>MLTHENGOSUB21220:GOTO21280
  660. 21205 A=A+1
  661. 21210 RN=RN+1:IFRN<=JTHEN21160
  662. 21215 A=A-1:A$="":SYSC(0):GOSUB21220:FORI=0TO232:A$(I)="":NEXT:RETURN
  663. 21220 GOSUB505:GOSUB491:OPEN8,DV,8,DR$+F$+",S,W":GOSUB510
  664. 21222 IFER=0THENPRINT#8,"[204]AST UPDATED "+DA$+C2$+NN$+CR$
  665. 21226 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+F$+",A":GOSUB510:IFERTHEN505
  666. 21240 FORI=0TOA:PRINT#8,A$(I):A$(I)="":NEXT:A=0:GOTO505
  667. 21280 GOSUB18510:IFERTHEN505
  668. 21290 GOTO21210
  669. 22010 GOSUB499:A$=C2$+"[135][205]INI-[196][207][211].":SYSC(0)
  670. 22020 GOSUB155:A$="[134][136][135]"+MID$(STR$(DV),2)+">":SYSC(1):GOSUB310:GOSUB155
  671. 22050 IFLEFT$(I$,1)="F"THENDR$="":DX=0:F$=MID$(I$,2):GOSUB210:GOTO22020
  672. 22060 IFLEFT$(I$,1)="$"THENGOSUB22210:GOTO22020
  673. 22070 IFLEFT$(I$,1)="#"THEN22150
  674. 22118 IFI$=""THENRETURN
  675. 22119 IFI$=">"THENI$="@
  676. 22120 [139]I$[179][177]"@"[167][152]15,I$:[139]I$[178]"UJ"[176]I$[178]"U;"[176]I$[178]"U:"[167][129]I[178]1[164]2000:[130]
  677. 22130 [132]15,ER,ER$,ET,B:A$[178][196](ER)[170]" "[170]ER$[170][196](ET)[170][196](B):[158]C(.)
  678. 22140 [137]22020
  679. 22150 I[178][197]([202](I$,2)):[141]22500:[137]22020
  680. 22210 [159]8,DV,0,I$:[161]#8,A$,A$:[151]C(6),0:B[178][171]3
  681. 22240 [161]#8,A$,A$,A$,B$:B[178]B[170]1:C[178][198](A$[170]NU$)[170][198](B$[170]NU$)[172]256:[139]ST[167]A$[178]CR$[170][196](B)[170]" FILES SELECTED":[158]C(0):[137]22330
  682. 22290 [158]C(5):A$[178][196](C)[170]" "[170][200](TX$,[194](142)):[158]C(0):[141]110:[139]A$[178]" "[167]P[178]1
  683. 22300 [139]P[167][141]360:[137]22330
  684. 22320 [137]22240
  685. 22330 [151]C(6),13:[160]8:[142]
  686. 22500 [139][182](I)[179]7[176][182](I)[177]15[167][142]
  687. 22505 H$(10)[178]"":[160]15:[151]148,64:[159]15,[182](I),15:[160]15:[139]ST[178]0[167]D(10)[178]I
  688. 22510 DX[178]0:[137]499
  689. 27500 [151]659,0:[139]BR[178]300[167][151]659,6
  690. 27520 ER[178]1.02273E6:A[178]ER[173]BR:[141]27590:[151]C(29),ES:[151]C(30),ET
  691. 27530 [139]BR[178]1200[167][151]659,8:A[178]ER[173]BR[172].966:[141]27590
  692. 27535 [139]BR[178]2400[167][151]659,10:A[178]ER[173]BR[172].9024:[141]27590
  693. 27540 [151]665,ES:[151]666,ET:A[178]ER[173]BR[173]2[171]100:[141]27590:[151]661,ES:[151]662,ET
  694. 27545 [139]BR[178]2400[167][151]661,114:[151]665,132:[151]C(29),172
  695. 27550 [142]
  696. 27590 ET[178][181](A[173]256):ES[178][181](A[171]ET[172]256):[142]
  697. 35440 [139]MT[178]0[176]AR%[179]256[167][142]
  698. 35450 A$[178]C2$[170]"INPUT(null)PDATING DIR...DIM":[158]C(1):UD[178](AR%[171](AR%[175]255))[173]256:[141]484
  699. 35460 [151]C(6),0:[129]I[178]21[164]20[170]MT:I$[178]A$(I)
  700. 35480 [159]8,DV,0,"$"[170]DR$[170]I$:[141]770:[141]780:[158]C(5):[141]505
  701. 35490 [139][200](A$(I),1)[178]"@"[167]35520
  702. 35500 A$[178]" ":[139]NN(.,.)[167]A$[178]"*
  703. 35510 A$(I)=A$+LEFT$(MID$(STR$(A),2)+LEFT$(TX$,PEEK(142)),24)+"  "+DA$
  704. 35515 A$(I)=LEFT$(A$(I),6)+MID$(A$(I),7+LEN(SD$))
  705. 35520 GOSUB105:NEXT:POKEC(6),13:PRINT#15,"S"+DR$+"[186]DIR.TMP
  706. 35530 [139]IC[167][159]8,DV,8,DR$[170]"SQRDIRECTORY"[170]SD$:[160]8:[152]15,"HM0":[152]15,"I0
  707. 35540 OPEN9,DV,9,DR$+"[186]DIR.TMP,S,W
  708. 35550 [129]I[178]21[164]20[170]MT:[139][200](A$(I),1)[179][177]"@"[167][152]9,A$(I)
  709. 35560 [141]105:[130]:[160]9:[159]8,DV,8,DR$[170]"SQRDIRECTORY"[170]SD$:[141]510:[139]ER[167]35585
  710. 35570 [159]9,DV,9,DR$[170]"SQRDIR.TMP,A
  711. 35580 SYSC(5):SR=ST:PRINT#9,LEFT$(TX$,PEEK(142)):GOSUB105:IFSR=0THEN35580
  712. 35585 CLOSE8:CLOSE9
  713. 35590 PRINT#15,"S"+DR$+"[186]DIRECTORY"+SD$:GOSUB510
  714. 35600 PRINT#15,"C"+DR$+"[186]DIRECTORY"+SD$+"="+DR$+"[186]DIR.TMP":GOSUB105:SYSC(0)
  715. 35610 RETURN
  716. 41505 A$=C2$+"[135][196]EVICE NUMBER (>=[196][207][211]) ["+MID$(STR$(DV),2)+"] > "
  717. 41507 SYSC(1):GOSUB300:IFI$=""THENI$=STR$(DV)
  718. 41508 IFI$=">"THENGOSUB22010:GOTO41505
  719. 41510 GOSUB610:IFI<8THENP=99
  720. 41515 IFPTHENRETURN
  721. 41520 GOSUB22500:A$=CR$+"[135][196]RIVE NUMBER (0-1) [0] > ":SYSC(1):GOSUB300
  722. 41530 IFI$="1"THEND(10)=D(10)*-1
  723. 41540 IFPTHENRETURN
  724. 41545 A$=CR$+"[135][196]RIVE COMMAND > ":SYSC(1):GOSUB300:H$(10)=I$:IFPTHENRETURN
  725. 41550 A$=CR$+"[135][198]ILENAME > ":SYSC(1):GOSUB310:FI$=I$:IFPTHENRETURN
  726. 41560 DX=0:GOTO499
  727.